object frLogDispl: TfrLogDispl
  Left = 0
  Top = 0
  Width = 369
  Height = 247
  TabOrder = 0
  TabStop = True
  object VST: TVirtualStringTree
    Left = 0
    Top = 0
    Width = 369
    Height = 247
    Align = alClient
    BevelInner = bvNone
    BevelKind = bkTile
    BorderStyle = bsNone
    DragOperations = [doMove]
    DragType = dtVCL
    DrawSelectionMode = smBlendedRectangle
    Header.AutoSizeIndex = 2
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'Tahoma'
    Header.Font.Style = []
    Header.Options = [hoAutoResize, hoColumnResize, hoShowHint, hoVisible]
    Header.ParentFont = True
    Header.Style = hsFlatButtons
    HintAnimation = hatNone
    HintMode = hmHint
    ParentShowHint = False
    PopupMenu = TBPopupMenu1
    ShowHint = True
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSpanColumns, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toWheelPanning]
    TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
    OnGetText = VSTGetText
    OnGetImageIndex = VSTGetImageIndex
    OnGetHint = VSTGetHint
    OnMeasureItem = VSTMeasureItem
    Columns = <
      item
        Position = 0
        Width = 120
        WideText = 'Date'
      end
      item
        Position = 1
        Width = 90
        WideText = 'Time'
      end
      item
        Position = 2
        Width = 159
        WideText = 'Description'
      end>
  end
  object TBPopupMenu1: TTBPopupMenu
    Left = 104
    Top = 48
    object ilClearTaskLog: TTBItem
      Caption = 'Clear task log'
      OnClick = ilClearTaskLogClick
    end
    object ilClearAll: TTBItem
      Caption = 'Clear all logs'
      OnClick = ilClearAllClick
    end
    object TBSeparatorItem1: TTBSeparatorItem
    end
    object TBItem1: TTBItem
      Caption = 'Refresh Log'
      OnClick = TBItem1Click
    end
  end
end